home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 172 / 172.d81 / b.4 by 4 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  30 lines
  1. 10 poke53281,0:poke53280,0
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 1000 print"[147]";chr$(142)
  4. 1001 print"[146]        [129][176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]"
  5. 1002 print"        B   [158][169] [146][129][165]           [158][169] [146][129][165]  B"
  6. 1003 print"        B  [158][169][146][169] [146][129][165]          [158][169][146][169] [146][129][165]  B"
  7. 1004 print"        B [158][169][146][169]  [146][129][165]         [158][169][146][169]  [146][129][165]  B"
  8. 1005 print"        B [158]      [146][149][165] U     [158]      [146][149][165][129]B"
  9. 1006 print"        B [150][183][183][183][158] [146][129]O[150][183]  BIIU  [150][183][183][183][158] [146][129]O[150][183] [129]B"
  10. 1007 print"        B    [158] [146][129][165]   [173]KJ[179]     [158] [146][129][165]  B"
  11. 1008 print"        B    [150][183]      JK     [150][183]   [129]B"
  12. 1009 print"        B                      B"
  13. 1010 print"        B     now loading...   [129]B"
  14. 1011 print"        [173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]"
  15. 1100 print""
  16. 2000 sys57812"4x4",dv:poke780,0:poke781,0:poke782,14:sys65493
  17. 2100 sys3584
  18. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  19. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  20. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  21. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  22. 40040 close2:open2,i,2:close2:ifstthen40060
  23. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  24. 40060 next:return
  25. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  26. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  27. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  28. 59999 end
  29. 60000 dv=peek(186):open15,dv,15,"s0:b.4 by 4":close15:save"0:b.4 by 4",dv:end
  30.